home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Programming / ASM-One / Install ASM-One V1.44 < prev    next >
Text File  |  2000-08-06  |  9KB  |  394 lines
  1. ;------------------------------------------------------------------------
  2. ;
  3. ; This installation script will install ASM-One V1.44 and it's basic
  4. ; components.
  5. ;
  6. ; $VER: ASM-One V1.44 Installer (07-08-2000)
  7. ;
  8. ; (C)2000 by Boushh of TFA
  9. ;
  10. ;------------------------------------------------------------------------
  11.  
  12. ;(set @abort-button "Are you NUTS?")
  13. (set @pretend 0)
  14. (set @user-level 2)
  15.  
  16. ; Localisation stuff
  17.  
  18. (set #P_TAAL @language)
  19.  
  20. ; Engels
  21.  
  22. (if (= #P_TAAL "nederlands")
  23. (
  24. (set #P_welcome
  25. (cat "Welkom bij het installatieprogramma van 'ASM-One V1.44'"
  26.      "\n\nDit programma installeerd 'ASM-One V1.44' op jou Amiga"
  27. ))
  28.  
  29. (set #P_WRONGKICK "Je hebt minimaal Kickstart 2.04 nodig voor ASM-One")
  30.  
  31. (set #P_NOREQTOOLS
  32. (cat "Sorry, maar je hebt niet de juiste versie van ReqTools."
  33.      "\n\nHaal de laatste versie van AmiNet of bij een BBS."
  34. ))
  35.  
  36. (set #P_WHEREREGSDATA "Wil je dat de REGSDATA geinstalleerd wordt ?")
  37.  
  38. (set #P_WHEREREGSDATA-HELP "Met de REGSDATA geinstalleerd kun je elk register van de Amiga oproepen op de CommandLine.")
  39.  
  40. (set #P_WHEREAGA "Wil je dat de AGA.Guide geinstalleerd wordt ?")
  41.  
  42. (set #P_WHEREAGA-HELP "In de AGA.Guide staat belangrijke informatie over AGA Registers.")
  43.  
  44. (set #WHEREASMONE "Waar moet ASM-One geinstalleerd worden ?")
  45.  
  46. (set #P_YESASMGUIDE "Wil je dat de ASM-One Guide geinstalleerd wordt ?")
  47.  
  48. (set #P_ASMGUIDEHELP "De ASM-One Guide bevat veel informatie over de werking van ASM-One")
  49.  
  50. (set #P_YESSOURCERES "Wil je dat de ASM-One Source Rescuer geinstalleerd wordt ?")
  51.  
  52. (set #P_SOURCERESHELP "De Source Rescuer redt mogelijk verloren sources")
  53.  
  54. (set #P_CREATING1 "Maakt %s")
  55.  
  56. (set #P_COPYASM "Copieerd ASM-One naar %s")
  57.  
  58. (set #p_COPYREGS "Copieerd REGSDATA naar S:")
  59.  
  60. (set #P_COPYAGA "Copieerd AGA.Guide naar S:")
  61.  
  62. (set #P_COPYPREFS "Copieerd ASM-One.pref naar ENVARC:")
  63.  
  64. (set #P_COPYHISTORY "Copieerd History.txt naar %s")
  65.  
  66. (set #P_COPYASMGUIDE "Copieerd ASM_One Guide naar %s")
  67.  
  68. (set #P_COPYSOURCERES "Copieerd ASM-One Source Rescuer naar %s")
  69.  
  70. (set #P_AFSCHEID
  71. (cat "Veel succes met het gebruik van ASM-One V1.44"
  72.      "\n\nAls je ideeen of bugs hebt, mail die dan naar:"
  73.      "\n\nBoushh: remco.weg@endemol.nl"
  74.      "\n\nOf bezoek onze Web Site op 'http://www.euronet.nl/users/jdm'"
  75.      "\n\n\n(C) 2000"
  76.      "\n\nTFA - Artists with an attitude"
  77. ))
  78. )
  79. (
  80. (set #P_welcome
  81. (cat "Welcome to the installation program of 'ASM-One V1.44'"
  82.      "\n\nThis program will install 'ASM-One V1.44' on your Amiga."
  83. ))
  84.  
  85. (set #P_WRONGKICK "You need at least Kickstart 2.04 for ASM-One")
  86.  
  87. (set #P_NOREQTOOLS
  88. (cat "Sorry, you do not have the correct version of ReqTools."
  89.      "\n\nPlease get the latest version from AmiNet or a local BBS." 
  90. ))
  91.  
  92. (set #P_WHEREREGSDATA "Would you like the REGSDATA to be installed ?")
  93.  
  94. (set #P_WHEREREGSDATA-HELP "With REGSDATA installed you can look up any Register of the Amiga, ON-LINE !!")
  95.  
  96. (set #P_WHEREAGA "Would you like the AGA.Guide to be installed ?")
  97.  
  98. (set #P_WHEREAGA-HELP "With the AGA.Guide installed you can look up all AGA Registers of the Amiga, in AmigaGuide format !!")
  99.  
  100. (set #WHEREASMONE "Where would you like ASM-One to be installed ?")
  101.  
  102. (set #P_YESASMGUIDE "Would you like the ASM-One Guide to be installed ?")
  103.  
  104. (set #P_ASMGUIDEHELP "The ASM-One Guide covers most of ASM-One's functions.")
  105.  
  106. (set #P_YESSOURCERES "Would you like the ASM-One Source Rescuer to be installed ?")
  107.  
  108. (set #P_SOURCERESHELP "The Source Rescuer may rescue lost source")
  109.  
  110. (set #P_CREATING1 "Creating %s")
  111.  
  112. (set #P_COPYASM "Copying ASM-One to %s")
  113.  
  114. (set #p_COPYREGS "Copying REGSDATA to S:")
  115.  
  116. (set #P_COPYAGA "Copying AGA.Guide to S:")
  117.  
  118. (set #P_COPYPREFS "Copying ASM-One.pref file to ENVARC:")
  119.  
  120. (set #P_COPYCHANGES "Copying History.txt to %s")
  121.  
  122. (set #P_COPYASMGUIDE "Copying ASM_One Guide to %s")
  123.  
  124. (set #P_COPYSOURCERES "Copying ASM-One Source Rescuer to %s")
  125.  
  126. (set #P_AFSCHEID
  127. (cat "Thanks for using ASM-One V1.44"
  128.      "\n\nIf you have any bugs or ideas, report them to:"
  129.      "\n\nBoushh: remco.weg@endemol.nl"
  130.      "\n\nOr visit us at 'http://www.euronet.nl/users/jdm'"
  131.      "\n\n\n(C) 2000"
  132.      "\n\nTFA - Artists with an attitude"
  133. ))
  134. ))
  135.  
  136. ; wat standaard waarden
  137.  
  138. (set #P_REGSDATA1 "s:REGSDATA")
  139. (set #P_REGSDATA2 "sys:s/REGSDATA")
  140. (set #P_AGAGuide1 "s:AGA.Guide")
  141. (set #P_AGAGuide2 "sys:s/AGA.Guide")
  142. (set #P_ASMONEPREF "ENVARC:ASM-One.Pref")
  143. (set #P_REGINSTALLED 1)
  144. (set #P_AGAINSTALLED 1)
  145. (set #P_PREFINSTALLED 1)
  146. (set #P_ASMGUIDEINSTALLED 0)
  147. (set #P_SOURCERESINSTALLED 0)
  148.  
  149. ; We gaan beginnen !!!!
  150.  
  151. (message #P_welcome)
  152.  
  153. (complete 0)
  154.  
  155. ; Check Kickstart version. Exit if not at least 2.0
  156.  
  157. (if (< (/ (getversion) 65536) 37)
  158.     (abort #P_WRONGKICK)
  159. )
  160.  
  161. ; Check reqtools (minimaal version 38)
  162.  
  163. (if (< (getversion "LIBS:reqtools.library") 2490368)
  164.   (
  165.      (abort #P_NOREQTOOLS)
  166.   )
  167. )
  168.  
  169.  
  170. ; Check REGSDATA
  171.  
  172. (if (= (exists #P_REGSDATA1 (noreq)) 0)
  173.   (
  174.     (if (= (exists #P_REGSDATA2 (noreq)) 0)
  175.       (
  176.         (set #P_REGINSTALLED 0)        ; NIET geinstalleerd
  177.       )
  178.     )
  179.   )
  180. )
  181.  
  182.  
  183. ; Check AGA.Guide
  184.  
  185. (if (= (exists #P_AGAGuide1 (noreq)) 0)
  186.   (
  187.     (if (= (exists #P_AGAGuide2 (noreq)) 0)
  188.       (
  189.         (set #P_AGAINSTALLED 0)        ; NIET geinstalleerd
  190.       )
  191.     )
  192.   )
  193. )
  194.  
  195.  
  196. ; Check ASM-One.pref
  197.  
  198. (if (= (exists #P_ASMONEPREF (noreq)) 0)
  199.   (
  200.     (set #P_PREFINSTALLED 0)        ; NIET geinstalleerd
  201.   )
  202. )
  203.  
  204. ; Ask for installation of REGSDATA
  205.  
  206. (if (= #P_REGINSTALLED 0)
  207.   (
  208.     (if (askbool (prompt #P_WHEREREGSDATA)
  209.                  (help #P_WHEREREGSDATA-HELP)
  210.                  (default 1)
  211.                  (choices "Yep" "Nope"))
  212.         (
  213.           (set #P_REGINSTALLED 0)
  214.         )
  215.     )
  216.   )
  217. )
  218.  
  219.  
  220. ; Ask for installation of AGA.Guide
  221.  
  222. (if (= #P_AGAINSTALLED 0)
  223.   (
  224.     (if (askbool (prompt #P_WHEREAGA)
  225.                  (help #P_WHEREAGA-HELP)
  226.                  (default 1)
  227.                  (choices "Sure" "NO WAY!!!")
  228.         )
  229.         (
  230.           (set #P_AGAINSTALLED 0)
  231.         )
  232.     )
  233.   )
  234. )
  235.  
  236.  
  237. ; Ask for installation of ASM-One Guide
  238.  
  239. (if (= #P_ASMGUIDEINSTALLED 0)
  240.   (
  241.     (if (askbool (prompt #P_YESASMGUIDE)
  242.                  (help #P_ASMGUIDEHELP)
  243.                  (default 1)
  244.                  (choices "Absolutely" "Are you NUTS !!!")
  245.         )
  246.         (
  247.           (set #P_ASMGUIDEINSTALLED 0)
  248.         )
  249.     )
  250.   )
  251. )
  252.  
  253.  
  254. ; Ask for installation of Source Rescuer
  255.  
  256. (if (= #P_SOURCERESINSTALLED 0)
  257.   (
  258.     (if (askbool (prompt #P_YESSOURCERES)
  259.                  (help #P_SOURCERESHELP)
  260.                  (default 1)
  261.                  (choices "Absolutely" "Are you NUTS !!!")
  262.         )
  263.         (
  264.           (set #P_SOURCERESINSTALLED 0)
  265.         )
  266.     )
  267.   )
  268. )
  269.  
  270.  
  271. (complete 25)
  272.  
  273.  
  274. ; Vraag waar ASM-One geinstalleerd moet worden
  275.  
  276. (set #P_DIRNAME
  277.     (askdir
  278.         (prompt #P_WHEREASMONE)
  279.         (help @askdir-help)
  280.         (default "WORK:")
  281.     )
  282. )
  283.  
  284. (set @default-dest #P_DIRNAME)
  285.  
  286. (if (= (exists #P_DIRNAME) 0)
  287.   (
  288.     (makedir #P_DIRNAME
  289.             (prompt #P_CREATING1 #P_DIRNAME)
  290.             (help "")
  291.             (infos)
  292.     )
  293.   )
  294. )
  295.  
  296. (complete 30)
  297.  
  298.  
  299. ; Installeer die bende maar
  300.  
  301. (copyfiles (source "ASM-One_V1.44")
  302.            (dest #P_DIRNAME)
  303.            (prompt #P_COPYASM #P_DIRNAME)
  304.            (infos))
  305.  
  306. (complete 60)
  307.  
  308. (if (= #P_REGINSTALLED 0)
  309.   (
  310.     (copyfiles (source "REGSDATA")
  311.                (dest "S:")
  312.                (prompt #P_COPYREGS))
  313.   )
  314. )
  315.  
  316. (complete 65)
  317.  
  318. (if (= #P_AGAINSTALLED 0)
  319.   (
  320.     (copyfiles (source "AGA.Guide")
  321.                (dest "S:")
  322.                (prompt #P_COPYAGA))
  323.   )
  324. )
  325.  
  326. (complete 70)
  327.  
  328. (if (= #P_PREFINSTALLED 0)
  329.   (
  330.     (copyfiles 
  331.         (source "ASM-One.Pref")
  332.         (dest "ENVARC:")
  333.         (prompt #P_COPYPREFS)
  334.     )
  335.   )
  336. )
  337.  
  338. (complete 72)
  339.  
  340. (if (= #P_ASMGUIDEINSTALLED 0)
  341.   (
  342.     (copyfiles 
  343.         (source "ASM-One_V1.4x.Guide")
  344.         (dest #P_DIRNAME)
  345.         (prompt #P_COPYASMGUIDE)
  346.     (infos))
  347.     (copyfiles 
  348.         (source "AddressingModes.Guide")
  349.         (dest #P_DIRNAME)
  350.         (prompt #P_COPYASMGUIDE))
  351.     (copyfiles 
  352.         (source "Directive.Guide")
  353.         (dest #P_DIRNAME)
  354.         (prompt #P_COPYASMGUIDE))
  355.     (copyfiles 
  356.         (source "Advanced.Guide")
  357.         (dest #P_DIRNAME)
  358.         (prompt #P_COPYASMGUIDE)
  359.     )
  360.   )
  361. )
  362.  
  363. (complete 87)
  364.  
  365. (if (= #P_SOURCRESINSTALLED 0)
  366.   (
  367.     (copyfiles 
  368.         (source "ASM-One_Rescuer")
  369.         (dest #P_DIRNAME)
  370.         (prompt #P_COPYSOURCERES)
  371.     (infos)
  372.     )
  373.   )
  374. )
  375.  
  376. (complete 90)
  377.  
  378. (copyfiles (source "History.txt")
  379.            (dest #P_DIRNAME)
  380.            (prompt #P_COPYCHANGES #P_DIRNAME)
  381.            (infos))
  382.  
  383. (copyfiles (source "README")
  384.            (dest #P_DIRNAME)
  385.            (prompt #P_COPYOLDCHANGES #P_DIRNAME)
  386.            (infos))
  387.  
  388. (complete 100)
  389.  
  390. (message #P_AFSCHEID)
  391.  
  392. (exit)
  393. ; we zijn klaar, pfew !!
  394.